home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
fxforge
/
distortfx
/
bevelbutton
< prev
next >
Wrap
Text File
|
1999-06-15
|
1KB
|
56 lines
Filter Factory Plugin Information:
FILENAME: BUTTON.8BF
CATEGORY:
Render
TITLE:
ButtonMaker Square
COPYRIGHT:
Copyright ) 1996 Roberto Puon.
All Rights Reserved. Distribute Freely.
AUTHOR:
http://www.gtlug.org/~puon
Map 0: [Map 0:]
Map 1: [Map 1:]
Map 2: [Map 2:]
Map 3: [Map 3:]
Control 0: [Bevel Size:]
Control 1: [Depth/Contrast:]
Control 2: [Control 2:]
Control 3: [Control 3:]
Control 4: [Control 4:]
Control 5: [Control 5:]
Control 6: [Control 6:]
Control 7: [Control 7:]
R=
put(val(0,1,min(X,Y)/2),0),put(val(1,48,212),1),put(val(1,96,164),2),
(c2d(x,y)<128)&&(c2d(X-x-1,y)<128)&&((y<get(0)))?c*get(1)/128:
(c2d(x,y)>128)&&(c2d(x,Y-y-1)>128)&&((x<get(0)))?c*get(2)/128:
(c2d(X-x,Y-y)>128)&&(c2d(X-x,y)>=128)&&((x>X-1-get(0)))?c*get(3)/128:
(c2d(x,Y-y)<=128)&&(c2d(X-x,Y-y)<128)&&((y>Y-1-get(0)))?c*get(4)/128:c
G=
put(val(1,164,96),3),put(val(1,212,48),4),
(c2d(x,y)<128)&&(c2d(X-x-1,y)<128)&&((y<get(0)))?c*get(1)/128:
(c2d(x,y)>128)&&(c2d(x,Y-y-1)>128)&&((x<get(0)))?c*get(2)/128:
(c2d(X-x,Y-y)>128)&&(c2d(X-x,y)>=128)&&((x>X-1-get(0)))?c*get(3)/128:
(c2d(x,Y-y)<=128)&&(c2d(X-x,Y-y)<128)&&((y>Y-1-get(0)))?c*get(4)/128:c
B=
(c2d(x,y)<128)&&(c2d(X-x-1,y)<128)&&((y<get(0)))?c*get(1)/128:
(c2d(x,y)>128)&&(c2d(x,Y-y-1)>128)&&((x<get(0)))?c*get(2)/128:
(c2d(X-x,Y-y)>128)&&(c2d(X-x,y)>=128)&&((x>X-1-get(0)))?c*get(3)/128:
(c2d(x,Y-y)<=128)&&(c2d(X-x,Y-y)<128)&&((y>Y-1-get(0)))?c*get(4)/128:c
A=
a